home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / COMPILER / VP10B003 / VPC.ZIP / EXAMPLES / BP7 / TVFM / FILECOPY.DIF < prev    next >
Text File  |  1995-06-22  |  403b  |  11 lines
  1. Comparing files BP7\FILECOPY.PAS and VP\FILECOPY.PAS
  2. ***** BP7\FILECOPY.PAS
  3.    14:  uses Objects;
  4. ***** VP\FILECOPY.PAS
  5.    14:  uses Objects, Use32;
  6.  
  7. ***** BP7\FILECOPY.PAS
  8.   287:      if (DosError = 0) and ((SRec.Attr and Archive) = 0) then Exit
  9. ***** VP\FILECOPY.PAS
  10.   287:      {$IFDEF OS2} FindClose(SRec); {$ENDIF}
  11.   288:      if (DosError = 0) and ((SRec.Attr and Archive) = 0) then Exit